      MODULE employv2kp_u3
      USE employv2kp_u1
      CONTAINS
      SUBROUTINE SSALUC(MMNST,SSZ,ERRMES)
      CHARACTER*(*) ERRMES
      CHARACTER*10 SUBNAM
      PARAMETER(SUBNAM='SSALUC')
      INTEGER MMNST,SSZ(MMNST),ASTAT
      IF(.NOT.ALLOCATED(U00003)) THEN
      ALLOCATE(U00003(SSZ(2)),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(U00004)) THEN
      ALLOCATE(U00004(SSZ(3)),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(U00005)) THEN
      ALLOCATE(U00005(1),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(U00006)) THEN
      ALLOCATE(U00006(1),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(U00007)) THEN
      ALLOCATE(U00007(SSZ(1)),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(U00008)) THEN
      ALLOCATE(U00008(SSZ(1),SSZ(2)),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(U00010)) THEN
      ALLOCATE(U00010(SSZ(2),SSZ(1)),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(U00011)) THEN
      ALLOCATE(U00011(SSZ(3),SSZ(1)),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(U00013)) THEN
      ALLOCATE(U00013(SSZ(2)),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(U00014)) THEN
      ALLOCATE(U00014(SSZ(2)),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(U00015)) THEN
      ALLOCATE(U00015(1),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(U00016)) THEN
      ALLOCATE(U00016(1),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(U00018)) THEN
      ALLOCATE(U00018(SSZ(1)),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(U00019)) THEN
      ALLOCATE(U00019(SSZ(1)),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(U00020)) THEN
      ALLOCATE(U00020(SSZ(1),SSZ(2)),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(U00021)) THEN
      ALLOCATE(U00021(SSZ(1),SSZ(2)),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(U00022)) THEN
      ALLOCATE(U00022(SSZ(1),SSZ(2)),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(U00023)) THEN
      ALLOCATE(U00023(SSZ(1),SSZ(2)),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(U00024)) THEN
      ALLOCATE(U00024(SSZ(2),SSZ(1)),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(U00025)) THEN
      ALLOCATE(U00025(SSZ(1)),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(U00026)) THEN
      ALLOCATE(U00026(SSZ(1)),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(U00028)) THEN
      ALLOCATE(U00028(SSZ(1)),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(U00029)) THEN
      ALLOCATE(U00029(SSZ(1)),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(U00033)) THEN
      ALLOCATE(U00033(SSZ(1)),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(U00034)) THEN
      ALLOCATE(U00034(SSZ(1)),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(U00035)) THEN
      ALLOCATE(U00035(SSZ(3),SSZ(1)),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(U00036)) THEN
      ALLOCATE(U00036(SSZ(3),SSZ(1)),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(U00037)) THEN
      ALLOCATE(U00037(SSZ(3),SSZ(1)),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(U00038)) THEN
      ALLOCATE(U00038(SSZ(3),SSZ(1)),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(U00042)) THEN
      ALLOCATE(U00042(1),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(U00043)) THEN
      ALLOCATE(U00043(1),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(U00044)) THEN
      ALLOCATE(U00044(SSZ(2)),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(U00047)) THEN
      ALLOCATE(U00047(1),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(U00048)) THEN
      ALLOCATE(U00048(1),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(U00049)) THEN
      ALLOCATE(U00049(SSZ(2)),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(U00050)) THEN
      ALLOCATE(U00050(1),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(U00051)) THEN
      ALLOCATE(U00051(1),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(U00052)) THEN
      ALLOCATE(U00052(1),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(U00053)) THEN
      ALLOCATE(U00053(1),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(U00054)) THEN
      ALLOCATE(U00054(1),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(U00055)) THEN
      ALLOCATE(U00055(1),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      RETURN
15500 CONTINUE
      CALL PERETM(SUBNAM,ERRMES)
      RETURN
24200 CONTINUE
      CALL GPAERR(ASTAT,ERRMES)
      GOTO 15500
      END SUBROUTINE SSALUC
      END MODULE employv2kp_u3
